inherited fmClPropEdit: TfmClPropEdit
  Caption = #1056#1072#1079#1085#1086#1077'...'
  ClientHeight = 325
  ClientWidth = 351
  OnShow = FormShow
  ExplicitWidth = 359
  ExplicitHeight = 359
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 8
    Top = 48
    Width = 48
    Height = 13
    Caption = #1053#1072#1079#1074#1072#1085#1080#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [1]
    Left = 8
    Top = 96
    Width = 32
    Height = 13
    Caption = #1062#1077#1083#1086#1077
    FocusControl = edCPINTVALUE
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel [2]
    Left = 92
    Top = 96
    Width = 44
    Height = 13
    Caption = #1044#1088#1086#1073#1085#1086#1077
    FocusControl = edCPFLOATVALUE
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel [3]
    Left = 176
    Top = 96
    Width = 26
    Height = 13
    Caption = #1044#1072#1090#1072
    FocusControl = edCPDATEVALUE
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel [4]
    Left = 261
    Top = 96
    Width = 30
    Height = 13
    Caption = #1042#1088#1077#1084#1103
    FocusControl = edCPTIMEVALUE
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel [5]
    Left = 8
    Top = 8
    Width = 83
    Height = 13
    Caption = #1053#1072#1095#1072#1083#1100#1085#1072#1103' '#1076#1072#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [6]
    Left = 222
    Top = 8
    Width = 77
    Height = 13
    Caption = #1050#1086#1085#1077#1095#1085#1072#1103' '#1076#1072#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel [7]
    Left = 8
    Top = 139
    Width = 53
    Height = 13
    Caption = #1058#1077#1082#1089#1090#1086#1074#1086#1077
    FocusControl = edCPINTVALUE
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 298
    Width = 351
    ExplicitTop = 298
    ExplicitWidth = 351
  end
  inherited Panel1: TPanel
    Top = 253
    Width = 351
    ExplicitTop = 253
    ExplicitWidth = 351
  end
  object edCPPROPID: TcxDBLookupComboBox [10]
    Left = 8
    Top = 66
    DataBinding.DataField = 'CPPROPID'
    DataBinding.DataSource = dlgDS
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'CPPROID'
    Properties.ListColumns = <
      item
        FieldName = 'CPDESCRIPTION'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsPropDic
    Style.BorderStyle = ebs3D
    Style.Shadow = False
    Style.ButtonStyle = btsDefault
    TabOrder = 2
    Width = 337
  end
  object edCPINTVALUE: TDBEdit [11]
    Left = 8
    Top = 112
    Width = 82
    Height = 21
    DataField = 'CPINTVALUE'
    DataSource = dlgDS
    TabOrder = 3
  end
  object edCPFLOATVALUE: TDBEdit [12]
    Left = 92
    Top = 112
    Width = 82
    Height = 21
    DataField = 'CPFLOATVALUE'
    DataSource = dlgDS
    TabOrder = 4
  end
  object edCPDATEVALUE: TDBEdit [13]
    Left = 176
    Top = 112
    Width = 82
    Height = 21
    DataField = 'CPDATEVALUE'
    DataSource = dlgDS
    TabOrder = 5
  end
  object edCPTIMEVALUE: TDBEdit [14]
    Left = 261
    Top = 112
    Width = 82
    Height = 21
    DataField = 'CPTIMEVALUE'
    DataSource = dlgDS
    TabOrder = 6
  end
  object edCPDATESTART: TcxDBDateEdit [15]
    Left = 8
    Top = 24
    DataBinding.DataField = 'CPDATESTART'
    DataBinding.DataSource = dlgDS
    Properties.ImmediatePost = True
    Properties.SaveTime = False
    Properties.ShowTime = False
    Style.BorderStyle = ebs3D
    TabOrder = 7
    Width = 121
  end
  object edCPDATEEND: TcxDBDateEdit [16]
    Left = 222
    Top = 24
    DataBinding.DataField = 'CPDATEEND'
    DataBinding.DataSource = dlgDS
    Properties.ImmediatePost = True
    Properties.SaveTime = False
    Properties.ShowTime = False
    Style.BorderStyle = ebs3D
    TabOrder = 8
    Width = 121
  end
  object edCPTEXTVALUE: TDBMemo [17]
    Left = 8
    Top = 158
    Width = 335
    Height = 81
    DataField = 'CPTEXTVALUE'
    DataSource = dlgDS
    ScrollBars = ssVertical
    TabOrder = 9
    WantReturns = False
  end
  inherited dlgDS: TDataSource
    DataSet = qProp
    OnDataChange = dlgDSDataChange
    Left = 184
    Top = 56
  end
  object qProp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qPropAfterInsert
    BeforePost = qPropBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM CLPROPERTIS C'
      ' WHERE C.CPID = :CPID   ')
    UpdateObject = quProp
    GeneratorField.Field = 'CPID'
    GeneratorField.Generator = 'GCLPROPERTIS'
    Left = 208
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CPID'
        ParamType = ptUnknown
      end>
    object qPropCPID: TIntegerField
      FieldName = 'CPID'
      Origin = '"CLPROPERTIS"."CPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPropCLID: TIntegerField
      FieldName = 'CLID'
      Origin = '"CLPROPERTIS"."CLID"'
    end
    object qPropCPPROPID: TIntegerField
      FieldName = 'CPPROPID'
      Origin = '"CLPROPERTIS"."CPPROPID"'
    end
    object qPropCPFIELDNUM: TIntegerField
      FieldName = 'CPFIELDNUM'
      Origin = '"CLPROPERTIS"."CPFIELDNUM"'
    end
    object qPropCPDATESTART: TDateField
      FieldName = 'CPDATESTART'
      Origin = '"CLPROPERTIS"."CPDATESTART"'
    end
    object qPropCPDATEEND: TDateField
      FieldName = 'CPDATEEND'
      Origin = '"CLPROPERTIS"."CPDATEEND"'
    end
    object qPropCPINTVALUE: TIntegerField
      FieldName = 'CPINTVALUE'
      Origin = '"CLPROPERTIS"."CPINTVALUE"'
    end
    object qPropCPFLOATVALUE: TIBBCDField
      FieldName = 'CPFLOATVALUE'
      Origin = '"CLPROPERTIS"."CPFLOATVALUE"'
      Precision = 18
      Size = 2
    end
    object qPropCPDATEVALUE: TDateField
      FieldName = 'CPDATEVALUE'
      Origin = '"CLPROPERTIS"."CPDATEVALUE"'
    end
    object qPropCPTIMEVALUE: TTimeField
      FieldName = 'CPTIMEVALUE'
      Origin = '"CLPROPERTIS"."CPTIMEVALUE"'
    end
    object qPropCPTEXTVALUE: TIBStringField
      FieldName = 'CPTEXTVALUE'
      Origin = '"CLPROPERTIS"."CPTEXTVALUE"'
      Size = 255
    end
  end
  object quProp: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CPID,'
      '  CLID,'
      '  CPPROPID,'
      '  CPFIELDNUM,'
      '  CPDATESTART,'
      '  CPDATEEND,'
      '  CPINTVALUE,'
      '  CPFLOATVALUE,'
      '  CPDATEVALUE,'
      '  CPTIMEVALUE,'
      '  CPTEXTVALUE'
      'from CLPROPERTIS '
      'where'
      '  CPID = :CPID')
    ModifySQL.Strings = (
      'update CLPROPERTIS'
      'set'
      '  CLID = :CLID,'
      '  CPDATEEND = :CPDATEEND,'
      '  CPDATESTART = :CPDATESTART,'
      '  CPDATEVALUE = :CPDATEVALUE,'
      '  CPFIELDNUM = :CPFIELDNUM,'
      '  CPFLOATVALUE = :CPFLOATVALUE,'
      '  CPID = :CPID,'
      '  CPINTVALUE = :CPINTVALUE,'
      '  CPPROPID = :CPPROPID,'
      '  CPTEXTVALUE = :CPTEXTVALUE,'
      '  CPTIMEVALUE = :CPTIMEVALUE'
      'where'
      '  CPID = :OLD_CPID')
    InsertSQL.Strings = (
      'insert into CLPROPERTIS'
      
        '  (CLID, CPDATEEND, CPDATESTART, CPDATEVALUE, CPFIELDNUM, CPFLOA' +
        'TVALUE, '
      '   CPID, CPINTVALUE, CPPROPID, CPTEXTVALUE, CPTIMEVALUE)'
      'values'
      
        '  (:CLID, :CPDATEEND, :CPDATESTART, :CPDATEVALUE, :CPFIELDNUM, :' +
        'CPFLOATVALUE, '
      '   :CPID, :CPINTVALUE, :CPPROPID, :CPTEXTVALUE, :CPTIMEVALUE)')
    DeleteSQL.Strings = (
      'delete from CLPROPERTIS'
      'where'
      '  CPID = :OLD_CPID')
    Left = 232
    Top = 56
  end
  object dsPropDic: TDataSource
    DataSet = qPropDic
    Left = 96
    Top = 56
  end
  object qPropDic: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT *'
      '  FROM CLPROPDIC C'
      ' ORDER BY C.CPDESCRIPTION')
    Left = 120
    Top = 56
  end
end
